home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / input.arc / MHDEF.INC < prev    next >
Encoding:
Text File  |  1987-09-26  |  1.4 KB  |  39 lines
  1. '  Constant Definitions for Other Subprograms
  2. '  Copyright 1987 MicroHelp, Inc. - All Rights Reserved
  3.  
  4. Defint A-Z
  5.  
  6. Dim Mh.Terminator$(20)
  7.  
  8. True=-1
  9. False=0
  10.  
  11. Mh.Auto.Terminate=0        ' Set to non-zero for auto terminate of input when field is filled
  12. Mh.Terminators=16               ' Number of keys that terminate input.
  13. Mh.Terminator$(1)=Chr$(13)    ' These are strings. For extended keys, add a
  14.                 '   Chr$(0) as in the "up arrow key" shown below
  15. Mh.Terminator$(2)=Chr$(0)+Chr$(72)    ' up arrow
  16. Mh.Terminator$(3)=Chr$(0)+Chr$(80)    ' down arrow
  17. Mh.Terminator$(4)=Chr$(0)+Chr$(73)    ' PgUp
  18. Mh.Terminator$(5)=Chr$(0)+Chr$(81)    ' PgDn
  19.  
  20. ' Function keys are entered for your convenience. Just rem any that you 
  21. ' don't want.
  22.  
  23. Mh.Terminator$(06)=Chr$(0)+Chr$(59)    ' F1
  24. Mh.Terminator$(07)=Chr$(0)+Chr$(60)    ' F2
  25. Mh.Terminator$(08)=Chr$(0)+Chr$(61)    ' F3
  26. Mh.Terminator$(09)=Chr$(0)+Chr$(62)    ' F4
  27. Mh.Terminator$(10)=Chr$(0)+Chr$(63)    ' F5
  28. Mh.Terminator$(11)=Chr$(0)+Chr$(64)    ' F6
  29. Mh.Terminator$(12)=Chr$(0)+Chr$(65)    ' F7
  30. Mh.Terminator$(13)=Chr$(0)+Chr$(66)    ' F8
  31. Mh.Terminator$(14)=Chr$(0)+Chr$(67)    ' F9
  32. Mh.Terminator$(15)=Chr$(0)+Chr$(68)    ' F10
  33. Mh.Terminator$(16)=Chr$(27)             ' Esc key
  34.  
  35. Mh.Fill.Character=177                    ' used to show "blanks" when doing input
  36. Word.Separator$=" .\/"+chr$(34)        ' for moving from word to word during input
  37.  
  38. Insert.State=False            ' Default insert state for input start
  39.